home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Source Code ƒ / MPW C ƒ / Selcom ƒ / selcom.mpw
Encoding:
Text File  |  1990-01-29  |  1.4 KB  |  26 lines  |  [TEXT/MACA]
  1.  
  2. AddMenu Edit '(-' ''
  3.  
  4. # A few commands to add to our Edit menu.  These are generally used via QuicKeys.
  5.  
  6. #    Delete Char            Del (i.e. the key to the left of the end key)
  7. #    Delete Word            Option Del
  8. #    Delete Back Word    Option Delete
  9. #    Forward Word        Option ->
  10. #    Backward Word        Option <-
  11. #    Select To BOW        Shift Option <-
  12. #    Select To EOW        Shift Option ->
  13. #    Select To BOL        Shift Command <-
  14. #    Select To EOL        Shift Command ->
  15.  
  16. AddMenu Edit 'Delete Char' 'Clear "§:§!1" "{Active}"'
  17. AddMenu Edit 'Delete Word' 'Clear "§:Δ/[{WordSet}][¬{WordSet}]/!1" "{Active}"'
  18. AddMenu Edit 'Delete Back Word' 'mark -y § tempsel "{Active}";Find "§¡1" "{Active}"; Find "Δ\[¬{WordSet}][{WordSet}]\!1" "{Active}";Clear §:tempsel "{Active}";unmark tempsel "{Active}"'
  19. AddMenu Edit 'Forward Word' 'Find "Δ/[{WordSet}][¬{WordSet}]/!1" "{Active}"'
  20. AddMenu Edit 'Backward Word' 'Find "§¡1" "{Active}"; Find "Δ\[¬{WordSet}][{WordSet}]\!1" "{Active}"'
  21. AddMenu Edit 'Current Word' 'Find "Δ\[¬{WordSet}][{WordSet}]\!1:Δ/[¬{WordSet}]/" "{Active}"'
  22. AddMenu Edit 'Select To BOW' 'mark -y § tempsel "{Active}";Find "§¡1" "{Active}"; Find "Δ\[¬{WordSet}][{WordSet}]\!1:tempsel" "{Active}";unmark tempsel "{Active}"'
  23. AddMenu Edit 'Select To EOW' 'find "§:Δ/[{WordSet}][¬{WordSet}]/!1" "{Active}"'
  24. AddMenu Edit 'Select To BOL' 'mark -y § tempsel "{Active}";find "\•\:tempsel" "{Active}";unmark tempsel "{Active}"'
  25. AddMenu Edit 'Select To EOL' 'find "§:/∂n*≈/" "{Active}"'
  26.